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SUMMARY 

This  report  briefly  describes  a set  of  plotting  and  utility  routines  written 
for  use  with  the  two-dimensional  maqnetohydrodynamics  code  BRAHMA. 

Section  I is  concerned  with  microfilm  plotting  routines.  Section  II  is 
primarily  concerned  with  utility  routines,  the  exception  being  SCRIBE,  a cal  comp 
and  microfilm  character  plotting  routine. 

All  routines  are  FTN  compatible  and  were  written  for  use  under  the  SCOPE  3.2 
operating  system. 
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ADJUST — Convert  Arguments 

Summary:  Converts  nonlinear  arguments  to  linear  before  scaling.  This 

routine  is  not  usually  called  directly. 


Entry  points: 

ADJUST 

Routines  called: 

ALOG10 

Common  blocks : 

SMAP 

ASSIGN — Connect  Logical  Number  and  I/O  Device 

Summary:  Subroutine  ASSIGN  is  used  to  establish  a relationship  between  a 

logical  unit  number  and  a specific  input  or  output  tape  volume. 

Calling  sequence:  CALL  ASSIGN  (L,H  ) 


where: 


L 

H 


Input  arguments:  L,H 

Output  arguments:  (none) 

Vital  Statistics:  Entry  points: 

Routines  called: 


is  the  (integer)  logical  unit  number,  in  the 
range  1-99 . 

is  the  tape  volume  identification,  that  is 
the  volume  serial  number  in  R5  format. 


ASSIGN 

REMARK,  RECALL,  CPAREA, 
O0UNIP , RQUEST 


CLOCK — Obtain  Alphanumeric  Time  and  Date 

Summary:  CLOCK  allows  the  user  to  obtain  the  alphanumeric  values  of  the 

current  time  and  date. 


Calling  sequence: 
where: 


Input  arguments: 
Output  arguments: 
Vital  Statistics: 


CALL  CLOCK  (A,B) 

A Current  reading  of  system  clock  as  returned 

by  SCOPE. 

B date  as  returned  by  SCOPE. 

(none) 

A,B 

Entry  points : CLOCK 

Rountines  Called:  TIME,  DATE 

Common  blocks:  (none) 


CNTRL — Obtain  Job  Information 


Summary:  CNTRL  obtains  the  following  information  from  the  control  point  area 
and  places  it  in  the  common  block  INFO:  Jobname,  CP  time  limit, 

CP  time,  PP  time,  Priority,  CM  field  length,  ECS  field  length,  the 
initial  CM  field  length  and  the  initial  ECS  field' length.  This 
routine  is  not  usually  called  directly. 
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Calling  sequence: 
Input  arguments: 
Output  arguments : 
Vital  statistics: 


CALL  CNTRL 


(none-results  placed  in  common  block  INFO) 
Entry  points:  CNTRL 

Routines  called:  CPAREA 


n T-%1  r»r* Ira  ! 


•riTnAn 


CPAREA — Obtain  Control  Point  Area 


Summary:  CPAREA  obtains  the  control  point  area  from  the  system.  This 

routine  is  not  usually  called  directly. 


Calling  sequence: 
where : 

Input  arguments : 
Output  arguments: 

Remarks : 

Vital  statistics: 


CALL  CPAREA (CPINFO)  . , . 

CPINFO  is  an  array  of  128  locations  into  which  is 

written  the  control  point  area. 

(none) 

CPINFO 
pp  routine 

1.  CXA  is  used  to  obtain  the  control  point  area. 

2.  CPAREA  is  written  in  COMPASS. 

Entry  points:  CPAREA 


Summary : 


CRTID — Initialize  80 

CRTID  should  be  called  once  and  only  once  in  any  job  producing  CRT 
nutout  and  must  precede  all  other  calls  to  CRT  routines.  It  produces 
at  the  beginning  of  the  output  two  blank  frames  and  a title  page  on 
which  is  written  the  CRT  job  identification,  the  date  and  time ."hen 

nIlt.mit  Was  generated,  and  the  classification  (if  any)  of  data  being 
output.  The  classification  also  appears  at  the  top  and  bottom 
of  every  page  of  output. 


Calling  sequence: 


where : 


Input  arguments: 
Output  arguments 
Remarks : 


Vital  statistics: 


CALL  CRTID  (A,I,N) 

CALL  CRTID  (A, I) 

CALL  CRTID  (A) 

A unused 

I is  the  classification. 

1=0  for  classified  information 
1=1  for  unclassified  information. 

N unu3ed 

A,  I ,N 

(none)  , , 

1.  Only  one  copy  of  the  output  from  a single  3°h  can 

be  produced. 

2.  Common  block  CLSCOM  (one  word)  must  be  defined  m 
the  (0,0)  overlay. 

Entry  points:  CRTID 

Routines  called:  PLOTQ,  SRDID,  NUMARG 

Common  blocks:  CLSCOM 
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DEVICE — Dummy  Routine 

Summary:  Subroutine  DEVICE  is  a dummy  routine  and  exists  only  for  compatibility 

with  previous  versions  of  the  plot  package. 


EMPTY — Empty  Output  Buffer 
Summary:  EMPTY  empties  the  output  buffer. 

Calling  sequence:  CALL  EMPTY  (N) 


where : 

Input  arguments: 
Output  arguments 
Vital  statistics: 


N 
N 

(none) 

Entry  points: 
Routines  called 


Fortran  unit  number 


EMPTY 

ENDFILE,  BACKSPACE 


FRAME— Advance  the  Film 

Summary:  FRAME  will  advance  the  film  N frames.  If  N is  omitted,  the  film  is 

advanced  one  frame.  A classification  label  is  written  on  the  frame 
if  necessary. 


Calling  sequence: 

CALL  FRAME  (N) 
CALL  FRAME 

where: 

N is  the  number  of 

frame  advances  desired. 

Input  arguments: 

N (or  none) 

Output  arguments: 

(none) 

Remarks : 

(none) 

Vital  statistics: 

Entry  points: 

FRAME 

Routines  called; 

PLOTQ,  SRDID 

Common  blocks: 

CL S COM 

GRIDG— Plot  a Grid 

Summary:  Plots  a full  grid  in  the  CRT  plane.  This  routine  is  usually  not 

called  directly,  (see  MAPG  • ) 

Vital  statistics:  Entry  points:  GRIDG 

Routines  called:  ALOG10  , PLOTQ 

Common  blocks : KEEP 


INTRPL8 — Linear  Interpolation 

Summary:  This  routine  is  not  usually  called  directly. 

Vital  statistics:  Entry  points:  INTRPL8 

Routines  called:  SQRT 

Common  blocks:  SMAP 
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LINE — Draw  a Line 

m Yl)  to  (X2 , Y2)  with  intensity  I. 
Summary:  LINE  will  sweep  a line  from  (XI,  ) V 


Calling  sequence: 


where : 


CALL  LINE  (XI,  Yl,  X2 , Y2) 
CALL  LINE  (XI,  Yl,  X2 , Y2,I) 


XI 

Yl 

X2, 

Y2 

I 


are  the  coordinates  of  the  initial  point, 
are  the  coordinates  of  the  terminal  point, 


Input  arguments: 
Output  arguments : 
Remarks : 


Vital  statistics: 


specifies  the  intensity. 

1=0  for  low  intensity 
1=1  for  high  intensity. 

XI,  Yl,  X2,  Y2 , I 

(none)  ne  ^ ^ with  4 or  5 arguments . 

2.  If  I is  omitted,  the  current  intensity 
will  be  used. 

3 See  fig.  1 for  example. 

Common  blocks:  SMAP,  KEEP 


MAP— Establish  Linear  or  Logarithmic  Mapping 


Summary : 


• - maptt  MAPSI  and  MAPLS)  will  establish  a 
MAP  (and  ltd  entry  P°lnt?  ;iane  ulth  corners  (XMIN,  YMIN) , 

mapping  from  the  rectangle  ln,th*nrLrOT  plane  with  comers  (XMI, 
(XMAX,  YMAX)  onto  the  rectangle  in  the  OT  or  logarithmic  scale. 

YMI)  (XMA,  YMA)  . Each  axis  may  have  a linear  or  iogar 


Calling  sequence: 


here: 


Input  arguments: 
Output  arguments: 
Remarks : 


CALL  MAP  (XMIN,  XMAX,  YMIN,  YMAX) 

CALL  MAP  (XMIN,  XMAX,  YMIN,  YMAX,  XMI,  XMA,  YMI,  YMA; 

CALL  MAPLL  similarly 
CALL  MAPSL  similarly 

“x^rlarly- the  user's  minimum  and  maximum 

— ’xTT  arettheaminimum  and  maximum  coordinates, 

SJtf  between  0.  and  1.,  of  the  desired  portion 

of  the  CRT  plane. 

XMIN,  XMAX,  YMIN,  YMAX  XMI,  XMA,  YMI,  YMA 

$?°nThe  linear-logarithmic  scaling  is  determined  for  the 

r _ *1  1 -w-.  • 


XMI 

YMI 


1 


X axis 

Y axis 

MAP 

linear 

linear 

MAPLL 

log 

log 

MAPSL 

linear 

log 

MAPLS 

log 

linear 
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Vital  statistics: 


2 Unless  reset,  this  mapping  applies  to  all  subsequent 
plotting,  except  character  plotting  controlled  by 

3.  5heCLtineS  may  be  called  with  four  or  eighj t 8-ent  s , 
If  the  last  four  arguments  are  omitted,  XMI  YtU  u. 

and  XMA=YMA=1 . are  used. 

4 . 0 . < XMI  < XMA  < 1 . and 
0 . 5-i  YMI  <YMA  5~  1 . 

c XMIN>0.  and  YMIN>  0.  for  logarithmic  scaling. 
Entry^points:  MAP,  MAPLL,  MAPSL,  MAPLS 

Routine  called:  ALOG10,  NUMARG 

hi  rinks!  S MAP 


MAPG — Establish  Mapping  with  Full  Grid 


Summary : 


HAPG  (and  its  associated  routines  MAPGLl  MAPGSL  ^ 

on'r  h"eblreecta„  ie  in  tL  CRT  plane  with 

(XMIN,  YMIN),  (XMAX, .™j*>  Each  axls  may  have  a linear  or 

logarithmic^scale!  ' 1 fail  reference  grid  with  scale  numbers  will 
be  drawn  (see  figs.  2 and  3). 


Calling  sequence: 


where : 


Input  arguments: 
Output  arguments: 
Remarks : 


oatt  MAPG  (XMIN,  XMAN,  YMIN,  YMAX) 

CALL  MAPG  (XMIN,  XMAX,  YMIN,  YMAX,  XMI,  XMA,  YMI,  ) 
CALL  MAPGLL  similarly 
CALL  MAPGSL  similarly 
CALL  MAPGLS  similarly 

XMIN,  XMAX)  are  the  user’s  minimum  and  maximum 
Cartesian  coordinates. 

are  the  minimum  and  maximum  coordinates, 
between  0.  and  1.,  of  the  desired  portion 
of  the  CRT  plane. 

XMIN,  XMAX,  YMIN,  YMAX,  XMI,  XMA,  YMI,  YMA 

^0"?he  linear-logarithmic  scaling  is  determined  for 
tho  y nnH  Y axes  as  follows: 


YMIN,  YMAX  I 
XMI,  XMA) 
YMI,  YMA/ 


X axis 


MAPG 

linear 

MAPGLL 

log 

MAPGSL 

linear 

MAPGLS 

log 

Y axis 
linear 
log 
log 

linear 


2. 

3. 

4. 

5. 


ass  reset,  this  mapping  applies  to  all 
ttine  except  character  plotting  controlled  oy  SETCH. 
“routines  may  be  called  with  4 or  8 arguments, 
the  last  four  arguments  are  omitted,  XMI-YMI  0.11328 

XMA=YMA= 1 . 0 are  used. 

; XMI  S XMA  5=  1 . and  0 . < YMI  - YMA  _ 1 . 

N >0.  and  YMIN>0.  for  logarithmic  scaling. 
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Vital  statistics:  Entry  points: 

Routines  called: 
Common  blocks: 


MAPG , MAPGSL , MAPGLS,  MAPGLL 
ALOG10 , GRIDG,  NUMARG 
SMAP 


NUMARG — Number  of  Arguments 

Summary:  Counts  the  number  of  arguments  in  the  calling  sequence.  This 

routine  is  not  usually  called  directly. 


Vital  statistics:  Entry  points:  NUMARG 

Routines  called:  (none) 

Common  blocks:  (none) 

NOTE:  NUMARG  is  coded  in  COMPASS  and  is  FTN  compatible  only. 


O0TIM-- Obtain  Time  Interval,  Time  Limit,  Time  Remaining,  and  Priority 

Summary:  O0TIM  allows  the  user  to  time  various  phases  of  his  program  and  to 

obtain  the  current  value  of  his  time  limit  and  the  time  remaining. 


Calling  sequence: 


where : 


Input  arguments: 
Output  arguments: 
Remarks : 


Vital  statistics: 


CALL  O0TIM  (I,  J,  K,  L) 

CALL  O0TIM  (I,  J) 

CALL  O0TIM  (I) 

CALL  O0TIM 

I is  the  central  processing  time  in  integer  microseconds 

charged  since  the  last  call  to  O0TIM. 

J is  the  current  time  limit,  in  integer  microseconds. 

K is  the  current  value  of  the  time  remaining,  in  integer 

microseconds . 

L is  current  priority  in  integer. 

(none) 

I , J,K,L 

1.  O0TIM  can  be  called  with  0,1, 2, 3, or  4 arguments.  The 
call  without  arguments  is  used  to  initialize  the  time. 

2.  With  overlays  common  block  O0TIMC  must  be  defined  with 
one  location  in  the  (0,0)  overlay. 

Entry  points:  O0TIM 

Routines  called:  NUMARG,  CNTRL 

Common  blocks:  O0TIMC»  IhFO 


O0UNIT — Tape  Volume  and  Physical  Unit  Correspondence 

Summary:  Subroutine  O0UNIT  provides  a method  whereby  the  physical  unit  number 

of  the  tape  drive  to  which  a given  volume  is  (or  was)  assigned  mav  be 

determined. 

Calling  sequence:  CALL  O0UNIT  (IVOL,  ILUN) 
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where: 


Input  argument: 
Output  argument: 
Vital  statistics: 

Remarks : 


IVOL  is  the  volume  serial  number  in  R5  format. 
ILUN  is  the  returned  physical  unti  number  in 
R2  format. 

IVOL 

ILUN 

Entry  points:  O0UNIT,  O0UNIP 

Common  blocks:  O0UCOM  (20  words) 

1.  All  tapes  must  be  assigned  via  calls  to  ASSIGN. 

2.  If  a return  has  been  done  on  a given  tape,  that 
tape  may  not  be  currently  mounted  even  though 
ILUN  is  returned  with  a value  other  than  2RN0. 

3.  Common  block  O0UCOM  must  be  defined  in  the  (0,0) 
overlay  and  all  20  elements  DATAied  to  zero. 


PLOTV — Draw  an  Arrow 


Summary:  PLOTV  will  draw  an  arrow  from  (XI, Yl)  to  (X2,Y2). 


Calling  sequence: 


where: 


Input  arguments: 
Output  arguments: 
Remarks : 


Vital  statistics: 


CALL  PLOTV  (Xl,Yl,X2,Y2) 

CALL  PLOTV  (X1,Y1,X2,Y2,H) 

XI,)  are  the  coordinates  of  the  initial  point. 

Yi  f 

X2,(  are  the  coordinates  of  the  final  point. 

Y2  f 

H is  the  size  of  the  arrowhead,  between  0.  and  1 

Xl,Yl,X2,Y2,H 

(none) 

1.  The  routine  may  be  called  with  4 or  5 arguments 
(see  fig.  4 for  example.) 

2.  0 — H <1 . If  H is  omitted,  the  length  of  the 
arrowhead  will  be  proportional  to  the  length 
of  the  vector. 

Entry  points:  PLOTV 

Routines  called:  ADJ0ST,  NUMARG,  PL0TQ,  SQRT 

Common  blocks:  SMAP , KEEP 


POINT— Plot  a Single  Point 

Summary:  POINT  will  plot  a point  at  (X,Y)  with  intensity  I. 


Calling  sequence: 


where : 


Input  arguments: 
Output  arguments: 
Remarks : 


CALL  POINT  (X,Y) 

CALL  POINT  (X,Y, I) 

X,Y  are  the  coordinates  of  the  point. 

I specifies  the  intensity. 

1=0  for  low  intensity. 

1=1  for  high  intensity. 

X,Y , I 
(none) 

1.  POINT  may  be  called  with  2 or  3 arguments. 
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Vital  statistics: 


2.  if  I is  omitted,  the  current  intensity 

setting  is  used. 

3.  See  fig.  1 f°r  sample. 

J . POINT 

Entry  alOG10,  NUMARG,  PLOTQ 

R°Ut  M acts  SMAP,  KEEP 

Common  blocks. 

POINTC— Plot  Points  with  Label 


Summary: 


PU1NIU 

. v X and  Y with  the  specified 

apart . 


Calling  sequence: 


where: 


Input  arguments: 
Output  arguments: 
Remarks : 


Vital  statistics 


CALL  POINTC  (1HA ,X,Y ,N) 

CALI  POINTC  (lHA.X.Y.N.IX) 

CALI  POINTC  OM.X.Y.N.IX,  ) . 

ls  a Single  Holleritn  arrays  o£ 

are  the  names  of  floating  y 

S- tate^n  fucS^  storage 
locations  in  X and  Y,  respectively. 

A,X,Y,N,IX,IY 
(none)  ...  „ith  4 5 , or  6 arguments. 

POINTC  may  be  the  current  intensity. 

The  data  point  will  u intensity,  and 

The  value  of  K and  the  f specif  ied  in  SETPCH. 

type  face  of  the  c arac  th ey  are  omitted. 

IX  and  IY  will  be  assumed  if  “f  o£  a varlable. 

The  first  argument  may  be  the  name 

See  fig-  1 f°r  ep^c’ 

Entry  points.  ALOG10,  NUMARG,  PLOTQ, 

ROUtiMSlC„cii  SWAP  .KEEP 

Common  blocks. 


A 

X,Y 

N 

IX  ,\ 
IY  ( 


1. 

2. 

3. 

4. 

5. 

6. 


SQRT 


Q7PL0T 


• not  usually  called  directly. 
Summary:  This  routine  is  not  usua  y 


Vital  statistics: 


Entry  points: 
Routines  called: 
Common  blocks: 


Q 7 PLOT 
Q8PL0T 
SMAP,  Q7QUAD 


Q8PL0T 


Summary : 


This  routine  is  not 


usually  called  directly. 
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Vital  statistics  Entry  points:  Q8PL0T 

Routines  called:  TRACE,  TRACEP 

Common  blocks:  Q7QUAD 


RCONTR- -Contour  Plot,  Rectangular  Grid 

Summary:  RCONTR  requires  a rectangular  coordination  of  the  X,Y-plane,  as 

specified  by  the  one-dimensional  arrays  X and  Y If  FCN  is  the 
function  whose  level  curves  (contours)  are  to  be  drawn,  RCONTR  assumes 
that 

A(I , J)  = FCN(X(I),  Y ( J) ) . 

Calling  sequence:  CALL  RCONTR  (Kl,  C,  K2,  A,  MAX,  X,  IMIN,  IMAX,  ISTEP, 

Y,  JMIN , JMAX,  JSTEP) 

where:  K1,K2  integer  variables  determining  which  plotting 

option  is  to  be  used.  (See  options  below.) 

C one-dimensional  floating  point  array  of  test 

values  for  level  curves.  (See  options  below.) 

A Two-dimensional  floating  point  array  of  function 

values . 

MAX  integer  variable,  maximum  row  dimension  (first 
number  in  the  DIMENSION  statement  for  A) . 

X,Y  one-dimensional  floating  point  arrays  defining  a 

rectangular  grid  in  the  X,Y~plane. 

IMIN  Integer  variable,  minimum  I-value. 

IMAX  Integer  variable,  maximum  I-value. 

ISTEP  Integer  variable,  increment  between  successive 

I- values . 

JMIN, ) corresponding  information  for  J-values. 

JMAX,  > 

JSTEP  ) 

Input  arguments:  Kl ,C,K2 , A, MAX, X, IMIN , IMAX, ISTEP, Y, JMIN, JMAX, JSTEP 

Output  arguments:  C (if  K1<0) 

Vital  statistics:  Entry  points:  RCONTR 

Routines  called:  Q7PL0T,  SETCRT 

Common  blocks:  Q7QUAD 

Options:  The  first  three  arguments  (Kl,  C,  K2) , of  RCONTR  determine 

the  level  lines  (contour  values)  to  be  plotted.  Three  plotting 
options  are  available,  depending  on  the  value  of  Kl . 

+0PTI0N  If  K1>0,  then  the  array  C contains  Kl  numbers  which  are 

to  be  used  as  test  values  for  plotting  the  level  lines 
FCN(X, Y)=C(I) . 

Those  contours  C(I)  with  KK2  plotted  as  a series  of  dots, 
while  those  with  I-i  K2  are  plotted  as  solid  lines. 

-OPTION  If  Kl < 0,then  J K^j  equally-spaced  test  values  between  C (1) 

and  C(2)  (inclusive)  are  generated  and  placed  in  C as  out- 
put. The  numbers  are  stored  in  order,  with  C(l)  remaining 
unchanged  and  new  C ( | Kl|  ) = Old  C(2).  Plotting  then 
proceeds  a3  in  the  + option. 
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0 OPTION  If  K1=0 , then  FO=C(l),  DF-C(2) , and  all  level  curves  of 

the  form 

FCN(X,Y)=FO  + M*DF,M  an  integer, 
which  pass  through  the  grid  are  plotted.  Those  contours 
less  than  C(l)  are  plotted  as  a series  of  dots,  while 
those  greater  than  or  equal  to  C ( 1)  are  plotted  as  solid 
lines.  In  this  case,  K2  is  ignored. 

(Note:  an  error  exit  is  taken  if  C(2)4  0 in  the  0 option.) 


Summary : 


RECALL — Enter  Recall 

RECALL  places  the  code  in  recall  until  the  next  monitor  loop. 
This  routine  is  not  usually  called  directly. 


Calling  sequence: 
Input  arguments: 
Output  arguments: 
Remarks : 

Vital  statistics: 


CALL  RECALL 
(none) 

(none) 

1.  RECALL  is  written  in  COMPASS 
Entry  points:  RECALL 


RQUEST — Run  Time  Tape  Request 

Summary:  RQUEST  requests  a preassigned  tape  to  be  assigned  to  the  job  at 

run  time.  The  tape  must  either  be  preassigned  or  mounted  and 
labeled.  This  routine  is  not  usually  called  directly. 

Calling  sequence:  CALL  RQUEST  (IUNIT,  2HDN,  2HIP,  2HLB) 

where;  IUNIT  is  the  FORTRAN  I/O  unit  number 

DN  specifies  the  tape  density  and  is: 

MT  (default). 

HI  556. 

HY  800. 

LO  200. 

IP  specifies  the  recording  format  and  is. 

X External  format  (not  available  under  SCOPE  3.4). 

S Stranger  format- 

L Long  format,  (not  available  under  AFWL  SCOPE  3.4) 

SC  Scope  Standard. 

LB  specifies  the  labeling  and  is: 


E Prelabeled  ANSI. 

N ANSI  label  to  be  written. 

Y 3000  series  label. 

NO  Unlabeled. 

(all  four) 

( none) 

1.  This  routine  was  written  by  SSgt  Barry  Miller  in  COMPASS. 

2.  This  routine  must  be  modified  to  supply  VSN  and  file 

header  information  for  SCOPE  3.4. 

Entry  points  : RQUEST 


Tnput  arguments: 
Output  arguments: 
Remarks : 


Vital  statistics 


,1. 
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Sununary : 


SETCII— Set  Plot  Mode 

SETCH  specifies  the  starting  character  position  (X,Y) , intensity, 
case,  size,  orientation,  and  type  face  for  the  next  line  plotted 
by  WOT100  • X and  Y refer  to  an  absolute  position  on  the  CRT  face. 


Calling  sequence: 


where : 


Input  arguments: 
Output  arguments: 
Remarks : 


CALL  SETCH 
CALL  SETCH  (X,Y) 

CALL  SETCH  (X,Y,I) 

CALL  SETCH  (X,Y,I,IC) 

CALL  SETCH  (X,Y  , I, IC, IS) 

CALL  SETCH  (X,Y ,I,IC,IS ,10) 

CALL  SETCH  (X.Y,I,IC,IS,IO,IT) 

X,Y  are  the  coordinates  of  the  center  of  the  first 
character  (see  Remarks  3 and  A) . 

I specifies  the  intensity. 

1=0  for  low  intensity. 

1=1  for  high  intensity. 

1C  specifies  the  case. 

IC=0  for  upper  case (normal) . 

IC=1  for  lower  case. 

IS  specifies  the  size. 

IS=0  for  miniature  characters. 

IS=1  for  small  characters. 

IS=2  for  medium  characters. 

IS=3  for  large  characters. 

10  specifies  the  orientation. 

10=0  for  horizontal  orientation,  the  line  running 

left  to  right. 

10=1  for  vertical  orientation,  the  line  running 
bottom  to  top. 

IT  specifies  the  type  face. 

IT=0  for  Roman  type. 

IT=1  for  italic  type. 

X,Y , I , IC , IS  , 10 , IT 
(none) 

1.  SETCH  may  be  called  with  0,2, 3, A, 5, 6,  or  7 arguments. 

CAUTION:  The  call  without  arguments  is  used  to  restore 

current  SETCH  parameters  from  before  the  last 
SETLCH  call  and  should  not  normally  be  made. 

2.  I ,IC,IS ,10,  and  IT  will  be  zero  initially.  Arguments 
which  are  omitted  will  not  be  reset. 

3.  In  this  routine,  the  CRT  plane  is  considered  to  be  a grid 
of  rectangles,  each  containing  one  character  of  the  chosen 
size.  The  number  and  dimensions  of  these  rectangles  depend 
on  the  character  size  and  orientation. 

The  X and  Y coordinates  here  refer  to  these  rectangles, 
and  hence  they  also  depend  on  character  size  and  orienta- 
tion. X and  Y may  have  fractional  parts,  so  that  a 
character  need  not  be  plotted  in  the  center  of  one  of 
these  rectangles.  The  following  table  gives  the  dimen- 
sions of  this  grid  for  each  size  character. 


d. 
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SIZE 

0 (miniature) 
1 (small) 

2 (medium) 
3(large) 


CHARACTERS  LINES 
128  64 

85  42 

64  32 

42  21 


Vital  statistics: 


4.  For  an  orientation  of  0,  X refers  to  the  character 

position,  and  Y to  the  line  position.  For  an  orientation 
of  1,  X refers  to  the  line  and  Y refers  to  the 
character  position. 

Entry  points:  SETCH 

Routines  called:  NUMARG,  PLOTQ 

Common  blocks : SKEP 


SETCRT — Initialize  CRT  Beam 

Summary:  SETCRT  will  cause  the  beam  to  be  positioned  at  (X,Y)  without 

plotting  and  will  set  the  intensity. 


Calling  sequence: 


where: 


Input  arguments : 
Output  arguments: 
Remarks : 

Vital  statistics: 


CALL  SETCRT  (X,Y) 

CALL  SETCRT  (X,Y,I)  . , . . , 

X is  the  abscissa  at  which  the  beam  is  to  be  positioned 

Y is  the  ordinate  at  which  the  beam  is  to  be  positioned 

I specifies  the  intensity. 

1=0  for  low  intensity. 

1=1  for  high  intensity. 

X ,Y,  I 
(none) 

1.  SETCRT  may  be  called  with  2 or  3 arguments. 

2.  1=0  initially  and  will  not  be  reset  if  omitted. 

Entry  points:  SETCRT 

Routines  called:  PLOTQ 

Common  blocks : KEEP 


Summary : 


SETLCH— Set  Type  Mode 

SETLCH  specifies  the  starting  character  position,  intensity,  case, 
size,  orientation,  and  type  face  for  the  next  line  plotted  by  WOT100. 
Unlike  SETCH,  the  coordinates  given  here  are  in  the  user  s own 
coordinate  system  and  are  subject  to  the  scaling  given  by  the  current 

mapping. 


Calling  sequence: 


CALL  SETLCH 
CALL  SETLCH 
CALL  SETLCH 
CALL  SETLCH 
CALL  SETLCH 
CALL  SETLCH 
CALL  SETLCH 


(X,Y) 

(X,Y,I) 

(X,Y , I , IC) 

(X,Y ,I,IC,IS) 

(X,Y ,1 ,IC , IS ,10) 
(X,Y,I,IC, IS ,10, IT) 
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where : 


Input  arguments: 
Output  arguments 
Remarks : 

Vital  statistics 


Summary:  SETPCH 

of  the 

Calling  sequence: 
where : 


X,Y  are  the  coordinates  of  the  center  of  the  first 
character . 

I specifies  the  intensity. 

1=0  for  low  intensity. 

1=1  for  high  intensity. 

IC  specifies  the  case. 

IC=0  for  upper  case  (normal) . 

IC-=1  for  lower  case. 

IS  specifies  the  size. 

IS=0  for  miniature  characters. 

IS=1  for  small  characters. 

IS=2  for  medium  characters. 

IS=3  for  large  characters. 

10  specifies  the  orientation. 

10=0  for  horizontal  orientation,  the  line  running 
left  to  right. 

10=1  for  vertical  orientation, the  line  running 
bottom  to  top. 

IT  specifies  the  type  face. 

IT=0  for  Roman  type. 

IT=1  for  italic  type. 

X,Y,I,IC,IS,I0,IT 
: (none) 

1.  SETLCH  may  be  called  with  0 ,2 , 3 ,4 , 5 , 5 ,or  7 arguments. 
The  call  without  arguments  lias  its  usual  effect  of 
using  the  last  set  of  arguments. 

2.  T , IC , IS , 10 , and  IT  will  be  zero  initially.  Arguments 
which  are  omitted  will  not  be  reset,  unless  X and  Y 
are  also  omitted. 

: Entry  points:  SETLCH 

Routines  called:  NUMARG,  PL0TQ 

Common  blocks:  SMAP,  SKEP 


SETPCH — Set  Plotting  Character  Parameters 

specifies  the  intensity,  case,  size,  type,  face,  and  spacing 
characters  plotted  by  P0INTC  and  TRACEC. 

CALL  SETPCH 
CALL  SETPCH  (I) 

CALL  SETPCH  (I,IC) 

CALL  SETPCH  (I.IC.IS) 

CALL  SETPCH  (I.IC.IS, IT) 

CALL  SETPCH  (I ,IC, IS ,IT,K) 

I specifies  the  intensity. 

1=0  for  low  intensity. 

1=1  for  high  intensity. 

IC  specifies  the  case. 

IC=0  for  upper  case. 

IC=1  for  lower  case. 

IS  specifies  the  size. 

IS=0  for  miniature  size. 

IS=1  for  small  size. 
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Input;  arguments: 
Output  arguments: 
Remarks : 


Vital  statistics: 


IS=2  for  medium  size. 

IS=3  for  large  size. 

XX  specifies  the  type  face. 

IT=0  for  Roman  type. 

IT=1  for  italic  type. 

K specifies  the  spacing. 

1 ,IC, IS , IT,K 

l^SETPCH  may  be  called  with  any  number  of  arguments, 

2 Initially,  K=100  and  I-IC=IS=IT=0 . 

3‘  K is  the  minimum  number  of  raster  points  between 
ciiar.'ii’t-prs  and  must  be  a nonnegative  integer. 


Entry  points: 
Routines  called: 
Common  blocks: 


SETPCH 

numarg,  plotq 

KEEP 


SRDID-- Place  "SECRET"  Message  on  Film 


Summary : 


SRDID  is  called  by  FRAME  and  CRTID  to  place  ^ heading ^SECRET  RD" 
™ .lVrnfilm.  This  routine  is  not  usually  called  directly. 


Calling  sequence: 
where 

Input  arguments: 
Output  arguments: 
Vital  statistics: 


ALL  SRDID  (X ,Y) 


II u l A)  iy 

are  the  absolute  (0.-1023.)  coordinates  at 


i • I.  1 


X,Y 

(none) 

Entry  points:  SRDID 

Routines  called:  PLOTQ 


TRACE — Draw  a Solid  Line 


Summary : 


TRACE  will  connect  the  N points  given  by  the  arrays  X and  Y 
with  straight  line  segments. 


Calling  sequence: 


where : 


Input  arguments: 
Output  arguments: 
Remarks : 


ALL  TRACE  (X,Y,N) 

ALL  TRACE  (X,Y,N,IX) 

ALL  TRACE  (X,Y  ,N  ,IX,IY) 

,Y  are  the  names  of  floating  point  arrays  of  X and 
Y coordinates . 

is  the  number  of  points  to  be  plotted, 
are  the  increments  between  successive  storage 
locations  in  X and  Y,  respectively. 


V 

{ f 

,Y ,N , IX, IY 
none) 

. TRACE  may  be  called  with 
IX  and  IY  will  be  assumed 
. Sec  fig.  1 for  example. 


3,4,  or  5 arguments. 

1 if  they  are  omitted. 
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Vital  statistics:  Entry  points: 

Routines  called: 
Common  blocks: 


TRACE 

ALOG10,  NUMARG,  PLOTQ 
SMAP,  KEEP 


TRACEC — Draw  a Solid  Line  with  Label 

Summary:  TRACEC  will  connect  the  N points  given  by  X and  Y with  line  segments 

and  with  the  specified  280  character  superimposed  on  points  more 
than  K raster  points  apart. 


Calling  sequence: 


where : 


Input  arguments: 
Output  arguments: 
Remarks : 


Vital  statistics: 


CALL  TRACEC  (1HA,X,Y,N) 

CALL  TRACEC  (ltlA,X,Y  ,N , IX) 

CALL  TRACEC  (1HA,X,Y,N,IX,IY) 

A is  a single  Hollerith  character. 

X,Y  are  i~he  names  of  floating  point  arrays  of  X and 
Y coordinates. 

N is  the  number  of  points  to  be  connected. 

IX, \ are  the  increments  between  successive  storage 

IY  f locations  in  X and  Y,  respectively. 

A,X,Y,N,TX,TY 

(none) 

1.  TRACEC  may  be  called  with  4,  5 or  6 arguments. 

2.  The  value  of  K and  the  size,  case,  intensity,  and 
type  face  of  the  character  may  be  specified  in  SETPCH. 

3.  IX  and  IY  will  be  assumed  1 if  they  are  omitted. 

4.  See  fig.  1 for  example. 

Entry  points:  TRACEC. 

Routines  called:  ALOG10,  NUMARG,  PLOTQ,  SQRT 

Common  blocks:  SMAP,  KEEP 


TRACEP — Draw  a Dotted  Line 

Summary:  TRACEP  will  connect  the  N points  given  by  the  arrays  X and  Y with 

interpolated  points  spaced  2 | K | raster  points  apart. 


Calling  sequence: 


where : 


Input  arguments: 
Output  arguments: 


CALL  TRACEP  (X,Y,N) 

CALL  TRACEP  (X,Y,N,K) 

CALL  TRACEP  (X,Y,N,K,IX) 

CALL  TRACEP  (X,Y,N,K,IX,IY) 

X,Y  are  the  names  of  floating  point  arrays  of  X 

and  Y coordinates. 

N is  the  number  of  points  to  be  connected. 

K specifies  the  spacing  and  intensity. 

IX,  | are  the  increments  between  successive  storage 

IY  f locations  in  X and  Y,  respectively. 

X, Y ,N ,K, IX, IY 
(none) 
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Remarks : 


Vital  statistics: 


1.  TRACER  can  be  called  with  3,  4,  5 or  6 arguments. 

2.  Interpolated  points  will  always  be  plotted  at  low 
intensity.  If  K is  negative,  the  data  points  will 
be  plotted  at  high  intensity;  otherwise,  the  current 
intensity  value  will  be  used. 

3.  K=+2  initially  and  will  not  be  reset  if  omitted. 

4.  IX  and  IY  will  be  set  to  1 if  they  are  omitted. 

5.  See  fig.  1 for  example. 


Entry  points: 
Routines  called: 
Common  blocks: 


TRACER 

ALOGI0,  INTRPL8,  NUMARG , PLOTQ 
SMAP,  KEEP 


WOT100 — Plot  Formatted  I/O  List 

-mrv  Each  record  of  BCD  information,  as  described  by  LIST  (an  ordinary 

‘ ^ FORTRAN  input/output  list)  and  encoded  by  format  NF,  will  be  Plotted 

via  a call  to  PLOTQ.  The  starting  position  must  be  given  initially 

by  SETCH  or  SETLCH . 


Calling  sequence: 
where : 


Vital  statistics: 


ENCODE  (L.NF.A)  LIST 
CALL  WOT100  (A, L) 

Np  is  a FORMAT  statement 

LIST  is  an  ordinary  FORTRAN  I/O  list 
L is  the  number  of  characters  in  the  output 

record  (L4136) 

A is  variable  dimensioned  (L+l)/10 

Entry  points:  W9T100 

Routines  called:  PLOTQ 

Common  blocks:  SKEP 
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UTILITY  ROUTINES  AND  SCRIBE 
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DYDIM  Users  Guide 

PURPOSE:  To  allow  the  user  to  set  up  a program  with  variable  array  dimensions 

so  that  the  actual  dimensions  may  be  selected  conveniently  at  compile  time. 

METHOD:  DYDIM  reads  an  input  file  consisting  of  the  desired  dimension  values 

followed  by  the  user's  code.  DYDIM  then  processes  the  user's  code,  inserting 
the  actual  dimensions  and  writing  the  resulting  code  on  file  TZ  in  a form  suitable 
for  compiler  input. 

CODE  PREPARATION:  DYDIM  will  process  two  types  of  statements.  The  first  is  one 

in  which  one  or  more  variable  names  appear  in  parentheses  (two  or  more  need  to 
be  separated  by  commas)  as  in  Fortran  DIMENSION,  COMMON,  OR  EQUIVALENCE  statements. 
The  only  requirement,  however,  is  that  the  variable  names  appear  in  parentheses. 

The  second  type  of  statement  is  one  in  which  a variable  name  appears  immediately 
to  the  right  of  an  equals  sign.  The  precise  format  requirements  follow. 

For  variable  name(s)  in  parenthesis,  there  must  be  a dollar  sign  in  column  one 
and  no  blanks  imbedded  in  the  variable  name.  There  may,  however,  be  any  number 
of  blanks  between  parentheses,  variable  names,  and  commas.  Example: 

$ DIMENSION  X(XDIM) , Y(XDIM,  YDIM) 

Note  that  there  are  no  restrictions  on  repetition  of  variable  names  within  a card 
or  ent i re  code . 

For  a variable  name  to  the  right  of  an  equals  sign,  there  must  be  dollar  signs 
in  columns  one  and  two.  There  may  be  blanks  between  the  equals  sign  and  the 
variable  name.  There  must  be  at  least  one  blank  or  a dollar  sign  immediately 
following  the  variable  name.  Neither  the  blank  nor  the  dollar  sign  is  eliminated 
by  DYDTM. 
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Example : 

$$  IX  = XDIM  *5+3 

or 

$$  IX  = 5 * XDIM$  IY  = 10  * XDIM 

or 

$$  XDIM  = XDIM 

In  both  types  of  statements,  variable  names  are  limited  to  seven  characters 
and  must  not  contain  imbedded  blanks. 

INPUT  PREPARATION:  From  the  input  file  (file  INPUT  by  default)  DYDIM  looks  first 
for  a card  with  a dollar  sign  anywhere.  Finding  this,  the  code  scans  that  card 
and  all  cards  up  to  and  including  the  card  containing  another  dollar  sign  for 
character  strings  of  the  form 

NAME  - VALUE, 

NAME  is  a variable  name  of  one  to  seven  characters  with  no  imbedded  blanks,  and 
VALUE  is  a one  to  six  digit  integer  to  be  inserted  in  the  user's  code  whenever 
NAME  appears  as  described  above.  All  parts  of  the  string,  including  the  comma, 
must  appear  on  the  same  card,  and  any  number  of  strings  may  be  placed  on  a single 
card.  The  final  string  is  followed  by  a dollar  sign  rather  than  a comma.  Example: 

$ XDIM  = 100,  YDIM  = 83  $ 

There  must  be  at  least  one  blank  between  the  first  dollar  sign  and  the  first 
variable  name. 

After  these  character  strings  have  been  read,  DYDIM  processes  the  remaining 
cards  on  the  input  file  (assumed  to  be  the  user's  code)  for  cards  as  described  under 
code  preparation  above.  Processing  continues  until  an  end  of  file  is  encountered 
at  which  time  the  file  TZ  (containing  the  processed  code)  is  rewound.  The  output 
file  (OUTPUT  by  default)  contains  the  quantities  NAME  and  VALUE  for  each  string 
encountered  by  DYDIM  as  described  above. 
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REPETITION  OF  CARD  BLOCKS;  DYDIM  has  the  capability  of  processing  groups  of 
carhs  of  the  type  described  above  and  inserting  them  at  various  places 
throughout  the  users  code.  A block  of  cards  is  identified  with  a name  and 
falls  between  "proc"  and  "endproc"  cards  as  in  the  following  example. 


*PROC  NAME1 

$ COMMON  X(N1,  N2,  N3),  Y(Nl),  Z(50) 
$ COMMON/BLOCK/ A( Nl) , B(N2) 


* END? ROC 

The  asterisks  must  be  in  column  one  and  the  name 
characters  long,  starts  in  column  eleven. 

The  block  of  cards  is  inserted  by  using  an  " 

’’•INCLUDE  NAHE1 


, which  may  be  up  to  ten 


include"  card  such  as: 


Again,  the  asterisk  is  in  column  one  and  the  name  as  above,  must  start  in 
column  eleven. 

USCK  STRUCTURE:  DYDIM  required  440008  words  to  compile  and  executes  in  34300fl 

words.  The  time  to  process  a deck  varies  with  the  complexity  but  is  about 


50  cards  per  second. 

For  a program  on  cards,  the  deck  should  be  set  up  as  follows 

Job  Card 
Task  Card 
REDUCE  • OFF ) 

FTN  (A) 

LGO. 

RUN  (A,  , , TZ)  or  FTN  (A,  I = TZ) 

REDUCE. 


LGO. 
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7/8/9 

7/8/9 

7/8/9 

G/7/8/9 

For 


7/8/9 

7/8/9 


DYDIM  deck 

$ NAME1  = VALUE1 , NAME2  = VALUE2  $ 
*PR0C  BL0CK1 

etc. 

•‘ENDPROC 
Program  deck 


Data  Cards 


program  on  DAFWL,  the  following  setup  should  be  used. 
Job  Card 
Task  Card 
FTN  (A) 

DAFWL. 

LGO  (TAPEZ) 

RETURN  (TAPEZ) 

RUN  (A,  , , TZ)  or  FTN ( A , I = TZ) 

LGO. 

DYDIM  deck 
CARDS 

$ NAME1  = VALUE1,  NAME2  = VALUE2  $ 
»'«PR0C 
etc. 
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User's  program  cards 

LIBRARY 

PLOT000008 

LAST 


7/d/9 


Data  Cards 
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SCRI.il:  Users  Guide 


PURPOSE: 


USAGE: 


EXAMPLE: 


Given  a code  munber  which  designates  one  out  of  approximately 
200  alphabetic,  numeric,  Greek,  or  symbolic  characters,  SCRIBE 
furnishes  a string  of  x and  y coordinates  which  can  be  used  for 
plotting  the  character  on  the  Cal-Comp  or  CRT. 

To  obtain  the  plot  vector  for  a given  character: 

CALL  SCRIBi:  (I  ,J,  XMN,  XMX,  L,  VCTR) 

where  I and  J are  integers  defining  the  character  (see  below). 


SCRIBE  returns  XMN,  XMX,  L,  and  VCTR,  where: 

XMN  and  XMX  are  the  left  and  right  edges  of  the  blocks 
containing  the  character  (used  for  hori- 
zontal spacing) 

L is  the  number  of  coordinate  values  in  the 

vector,  counting  both  x and  y coordinates: 
hence  L/2  is  the  number  of  points. 

VCTR  is  the  vector  (space  provided  by  the  user) 

in  which  the  string  of  coordinates  is  placed 
by  SCRIBE.  VCTR  should  be  dimensioned  to 
contain  about  200  words.  (The  actual  maximum 
length  in  the  current  version  is  126,  since 
one  of  the  characters  involves  63  points.) 

PROGRAM  TEST  ( INPUr.OluPuT.niMJ'L  ) 

DIMENSION  VCTR (2, 100) ,XP(100) ,YP(100) 

COMMON  /SMAP/  XMIN,XMAX,YMIN,YMAX, 

1 XMI  ,XMA,YMI  ,YMA,XSCALE,YSCALE 
CALL  PLOTQ(0,0,0,0,7) 

XMT=YMI=0. 

XMIN=YMIN=0. 

XMAX=YMAX=2880. 

XSCALE=  (XMA-XMI)  / (XMAX-XMIN) 

YSCALL3  (YMA-YMI ) / (YMAX-YMIN) 
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Y= . . . 

CALL  SCRIBE  (I,J,XMN,XMX,L,VCTR) 

KM/VX  - CL/2)  + 1 
X = X -XMN 
M = 0 

1)0  199  K = 1,  KMAX 

IF  (K  .LQ.  KM\X)  GO  TO  198 
IF  (VCTR  (1,K)  .GT.  30.9)  GO  TO  198 
M - M + 1 

XT  (M)  = X + VCTR  (1/0 
YP  (M)  = Y + VCTR  (2,K) 

GO  TO  199 

198  CONTINUE 

IF  (M  .GT.  0)  CALL  TRACF  (XP,YP,M,1) 

M = 0 

199  CONTINUE 
X “ X + XMX 

REMARKS: 

1.  The  plot  coordinates  arc  given  relative  to  the  center 
of  the  character.  Tlicrefore  Y should  he  set  to  the  proper 
value  for  this  position,  and  X should  be  set  to  the  left 
edge  of  the  first  character.  The  statements  X = X - XMN 
and  X = X + XMN  in  the  above  example  then  advance  X to  the 
proper  position  for  plotting  the  next  character. 

2.  The  numbers  in  VCrR  arc  in  floating  point  form,  and  all 
have  integral  values  between  -30.0  and  +30.0;  successive 
points  are  joined  in  a chain  of  plotted  vectors.  The  value 

X » 31.0  is  used  to  indicate  the  end  of  a string  of  connected 
vectors . 

3.  The  coordinates  furnished  by  SCRIBE  are  given  in  terms 

of  integer  values:  A change  of  1.0  in  the  value  is  assumed 

to  represent  the  smallest  increment  which  can  be  distinguished 
by  the  plof cing  device. 

A character  in  this  example  has  its  top  at  a larger  value 
of  Y than  its  bottom  and  its  right  edge  at  a larger  value 
of  X than  its  left  edge  --  i.c.,  it  "faces  right."  Characters 
may  be  plotted  "facing  up"  by  writing: 

XP  (M)  = X - VCTR  (2,K) 

YP  (M)  - Y + VCTR  (1 ,K) 

and  making  corresponding  changes  to  place  the  next  character 
farther  along  in  the  Y direction  while  X is  held  fixed. 
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'flic  sizes  of  the  characters  arc  described  in  the  following 
paragraph,  since  the  size  depends  upon  the  font. 

The  consequences  of  applying  various  scale  factors,  and 
of  using  rotations  other  than  multiples  of  9u  , have  not 
yet  been  explored. 


CHARACTER  DESIGNATION: 

Ten  "fonts”  are  provided,  corresponding  to  I = 1, 
...,10  in  the  example  given  above.  The  odd-numbered 
fonts  are  large  characters.  The  even  numbered  fonts 
arc  exactly  the  same  characters  in  a smaller  size  (and 
slightly  less  detail.  The  characters  are  illustrated 
in  the  accompanying  chart. 


I » 1 or  2: 


3 or  4: 


J - 01  - 26: 
J - 27  - 36: 
J - 37  - 48: 


J - 01  - 26: 
J « 27  - 36: 


I - 5 or  6:  J - 01  - 26: 

I « 7 or  8:  J ■ 01-26: 

I « 9 or  10:  J - 01  - 61: 


Lower  case  Roman  alphabet 
Numbers  0-9 

Fortran  characters  + - * / 

()  $ = b.  ,j^  (note  that  these 
arc  the  same  as  the  corre- 
sponding 6600  display  code, 
except  for  . 

Upper  case  Roman  alphabet 
Sans  serif  numbers  0-9. 

Lower  case  Greek  letters 
(interpreted  according  to 
a special  transliteration 
table:  See  Chart.  Note 

that  J and  v are  not  used) . 
Upper  case  Greek  letters. 

Special  characters:  See 

accompanying  Chart . Note 
that  the  heading  on  the 
Chart  gives  values  of  J 
in  octal,  from  01  to  75. 


RESTRICTIONS : 


Illegal  Characters:  Values  of  I and  J which  do  not^ appear 

on  the  listing  above  should  be  avoided.  In  particular, 

1^0  and  J^0  may  cause  dire  results.  Using  a value  of  J 
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which  is  too  large  for  the  corresponding  value  of  I 
will  cause  a character  from  some  other  font  to  be  used, 
unless  J is  so  large  that  the  "character"  is  fetched 
from  beyond  the  entire  table. 

Space  (field  length)  Requirements : The  DAFWL  version 

consists  of  a source  deck  which  must  be  compiled  by 
the  user.  This  deck  is  primarily  composed  of  constants. 
The  subroutine,  along  with  Cal-Comp  routines  and  a 
fairly  short  FORTRAN  driver,  will  compile  and  load 
in  50000  (octal)  field  length.  It  executes  in  about 
30000  (octal)  including  the  microfilm  driver. 

Time  Requirements : Execution  time  is  not  excessive  -- 

perhaps  1 second  per  full  page  of  type. 

CHARACTER  SET: 

The  characters  used  in  this  subroutine  were  designed 
by  Mr.  Allen  V.  Hershey  of  the  U.S.  Naval  Weapons 
Laboratory,  Dahlgren,  Virginia. 
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SECURE  Users  Guide 

PURPOSE  AND  METHOD:  SECURE  reads  an  input  file  (default  is  INPUT)  then 

writes  a SECRET- RESTRICTED  DATA/CNWDI  message  at  the  top  and  bottom  of 
the  page  along  with  59  lines  of  output  (fig.  5).  Upon  termination 
SECURE  writes  a summary  page  (fig.  6)  and  a message  in  the  dayfile 
(fig.  7).  In  order  to  terminate  properly  SECURE  must  read  a double 
end-of-file.  Therefore,  a dummy  copy  must  be  made  (see  fig.  7 for 
example) . 
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